Inference at * 1 
Iof proof for Lemma ifthenelse wf:



1. b : 
2. A : Type
3. p : A
4. q : A
  if b then p else q fi   A 

latex

 by ((Unfold `ifthenelse` 0) 
CollapseTHEN (Unfold `bool` 1)) 

latex

C1: 

C1: 1. b : ?Unit
C1: 2. A : Type
C1: 3. p : A
C1: 4. q : A
C1:   case b of inl() => p | inr() => q  A
C.

Definitions

if b then t else f fi ,